Revista CD Expert 8/Revista CD Expert nº 08 CD1.iso/Utilitarios/Diversos/Coeli Stella 2000/_SETUP.1/Stella.exe/0/RCDATA/TQUIZFORM/TQUIZFORM.txt

Text File | 1999-03-13 | 8KB | 285 lines

object QuizForm: TQuizForm
  Left = 452
  Top = 79
  Width = 435
  Height = 155
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Coeli Sky Quiz'
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 125
  TextHeight = 16
  object StatusPanel1: TPanel
    Left = 0
    Top = 97
    Width = 427
    Height = 26
    Align = alBottom
    Color = clTeal
    Font.Color = clLime
    Font.Height = -17
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 427
    Height = 97
    ActivePage = QuizTab
    Align = alClient
    TabOrder = 1
    object QuizTab: TTabSheet
      Caption = 'Quiz'
      object Panel1: TPanel
        Left = 3
        Top = 3
        Width = 414
        Height = 206
        BevelInner = bvRaised
        BevelOuter = bvLowered
        ParentColor = True
        TabOrder = 0
        object QBox: TBoxLabel
          Left = 8
          Top = 7
          Width = 398
          Height = 53
          Hint = 'Click here for new question...'
          Caption = 'Click here for questions!'
          TextBorder = 2
          Font.Color = clYellow
          Font.Height = -17
          Font.Name = 'Times New Roman'
          Font.Style = [fsBold]
          Color = 8388672
          OnClick = QBoxClick
          ParentFont = False
          ParentColor = False
        end
        object MultichoiceBox: TComboBox
          Left = 61
          Top = 69
          Width = 295
          Height = 24
          Style = csDropDownList
          ItemHeight = 16
          Sorted = True
          TabOrder = 0
          Visible = False
          OnChange = MultichoiceBoxChange
        end
      end
    end
    object Setup: TTabSheet
      Caption = 'Setup'
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 419
        Height = 66
        VertScrollBar.Range = 200
        Align = alClient
        AutoScroll = False
        BorderStyle = bsNone
        TabOrder = 0
        object Panel2: TPanel
          Left = 3
          Top = 2
          Width = 412
          Height = 206
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 0
          object AnyStarConstel: TCheckBox
            Left = 20
            Top = 11
            Width = 226
            Height = 17
            Caption = 'Point out any star in constellation...'
            Enabled = False
            TabOrder = 0
            OnClick = AnyStarConstelClick
          end
          object PointStarDesig: TCheckBox
            Left = 20
            Top = 45
            Width = 264
            Height = 17
            Caption = 'Point out the star designated...'
            Enabled = False
            TabOrder = 1
          end
          object NameCircledStar: TCheckBox
            Left = 20
            Top = 66
            Width = 156
            Height = 17
            Caption = 'Name circled star...'
            State = cbChecked
            TabOrder = 2
            OnClick = NameCircledStarClick
          end
          object NameConstel: TCheckBox
            Left = 20
            Top = 84
            Width = 222
            Height = 17
            Caption = 'Name highlighted constellation...'
            State = cbChecked
            TabOrder = 3
            OnClick = NameConstelClick
          end
          object PointStarNamed: TCheckBox
            Left = 20
            Top = 28
            Width = 187
            Height = 17
            Caption = 'Point out the star named...'
            State = cbChecked
            TabOrder = 4
            OnClick = PointStarNamedClick
          end
          object NewQuizButton: TButton
            Left = 279
            Top = 22
            Width = 75
            Height = 25
            Caption = 'New Quiz'
            TabOrder = 5
            OnClick = NewQuizButtonClick
          end
          object InWhichConstel: TCheckBox
            Left = 21
            Top = 108
            Width = 234
            Height = 17
            Caption = 'In which constellation is the star...'
            Enabled = False
            TabOrder = 6
          end
        end
      end
    end
    object ScoreTab: TTabSheet
      Caption = 'Scores'
      object ScrollBox2: TScrollBox
        Left = 3
        Top = 3
        Width = 413
        Height = 78
        TabOrder = 0
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 409
          Height = 74
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object QList: TComboBox
            Left = 19
            Top = 5
            Width = 373
            Height = 27
            Style = csDropDownList
            Color = 8580861
            Font.Color = clNavy
            Font.Height = -17
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ItemHeight = 0
            ParentFont = False
            Sorted = True
            TabOrder = 0
          end
          object ClearScoreButton: TButton
            Left = 38
            Top = 39
            Width = 133
            Height = 20
            Caption = 'Clear score list'
            TabOrder = 1
            OnClick = ClearScoreButtonClick
          end
          object DeleteScoreButton: TButton
            Left = 229
            Top = 39
            Width = 133
            Height = 20
            Caption = 'Delete selection'
            TabOrder = 2
            OnClick = DeleteScoreButtonClick
          end
        end
      end
    end
    object UpgradeTab: TTabSheet
      Caption = 'Upgrade!'
      object UpgradeEdit: TRichEdit
        Left = 0
        Top = 0
        Width = 419
        Height = 66
        Align = alClient
        Color = 8454143
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Lines.Strings = (
          ''
          'Sky Quiz is available separately or as an '
          'integral part of Stella 2000 Extended Edition.'
          ''
          'Sky Quiz basic costs $29, Color Edition $39'
          ''
          'Registered Stella users can upgrade to Stella 2000 '
          'Extended Edition for just $39 - the package comes with '
          'the integral Sky Quiz Color Edition plus your choice of '
          'either the complete SAO or Hipparcos star catalogs, '
          'accompanied by many extra features and effects.'
          ''
          'Full price of Stella 2000 Extended Edition is $69. The '
          'SAO catalog alone costs $50, so, what with Sky Quiz '
          'Color Edition'#39's $39, your saving could be as '
          'much as an impressive $60!'
          ''
          'The Upgrade tab in the Special Options window is the '
          'place to go to order and find out more. What are you '
          'waiting for!')
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object IniOut1: TIniOut
    FileName = 'STELLA.INI'
    Items.Strings = (
      'QuizForm;Height;;Dimensions;Quiz form height;1;0'

        'AnyStarInConstel;Checked;True;Settings;Quiz any star in constel;' +
        '1;0'
      'NameCircledStar;Checked;True;Settings;Quiz name circled star;1;0'
      'NameConstel;Checked;False;Settings;Quiz name constel;1;0'
      'PointOutStar;Checked;True;Settings;Quiz point out star;1;0')
    RegistryRoot = CURRENT_USER
    Left = 396
    Top = 2
  end
end